Міністерство освіти і науки, молоді та спорту України
Національний університет «Львівська політехніка»
Кафедра ІСМ
Звіт
Лабораторна робота №2
«ОПЕРАТОР ПРИСВОЄННЯ.
ВВЕДЕННЯ ТА ВИВЕДЕННЯ ІНФОРМАЦІЇ»
Мета:Освоїти найпростішу структуру програми; отримати основну навики
організації вводу-виводу значень стандартних типів даних та використання
оператора присвоєння.
Контрольні питання
Напишіть загальний вигляд і конкретні приклади оператора
присвоєння.
«:=»
Наприклад:
x:=1;
x1:=a;
x2:=a+b;
x3:=x3+1;
Напишіть загальний вигляд і конкретні приклади операторів введення.
Read(<вираз 1>,<вираз 2>,…, <вираз n>);
Readln(<вираз 1>,<вираз 2>,…, <вираз n>);
Наприклад:
Read(a);
Readln(a,b,c);
Напишіть загальний вигляд і конкретні приклади операторів виведення.
Write(<вираз 1>, <вираз 2>, ..., <вираз n>);
WriteLn(<вираз 1>, <вираз 2>, ..., <вираз n>);
Наприклад:
Writeln(x:6:3);
Поясніть принцип форматованого виведення даних.
Writeln(x:4:3);
тобто число x буде виведено з точністю 3 і на дане число виділено 4 позиції.
- якщо кiлькiсть вiдведених на цілу частину числа символiв є недостатньою,
то вiдбувається автоматичне доповнення поля до необхiдних розмiрiв;
- якщо для виведення цілої частини виділено чотири позиції, а треба вивести
число 8, то на екран буде виведено ‘ 8’ (три пробіли і 8), а не 0008;
- якщо у величини, яка виводиться на екран, дробова частина не вкладається
у виділену кількість позицій, число буде заокруглене до заданої кількості позицій.
Поясніть призначення коментарів. Наведіть приклад.
Коментарі беруться в душки {…} або (*…*) і призначені для кращого розуміння програми наприклад:
Program demo;{Назва програми}
begin{Початок}
…;{Тіло програми}
end.{Кінець}
Поясніть мету використання процедур Readkey і clrscr та їх синтаксис.
Readkey застосовується для того, щоб не виконувати команди Debug / user screen вона автоматично виконує дані команди після завершення програмию.
clrscr використовується для очищення екрану від попередніх результатів програм.
Напишіть загальний вигляд структури програми.
Program <назва>;
var
A1;
…
An;
begin
P1;
…
Pn;
end.
Де A1… An- опис змінних, а P1… Pn- оператори.
Індивідуальні завдання
1. Перший рівень
Написати програму, яка виводить на екран Ваше ім’я.
program Lvl1;
uses crt;
begin
clrscr;
writeln(‘IKNI’);
writeln(‘RN-16, Ivasyshyn Roman’);
writeln(‘Robota 2, variant 17, lvl 3’);
{виводжу зображення, яке має розмір 35х11 клітинок}
writeln(‘+++++++++++++++++++++++++++++++++++’);
writeln(‘+ +’);
writeln(‘+ xxx xxx x x xx x x +’);
writeln(‘+ x x x x xx xx x x x x +’);
writeln(‘+ x x x x x xx x x x x x +’);
writeln(‘+ xxx x x x x x x x x +’);
writeln(‘+ x x x x x xxxx xxxxx +’);
writeln(‘+ x x x x x x x x x +’);
writeln(‘+ x x x x x x x x x +’);
writeln(‘+ x xxx x x x x x x x +’);
writeln(‘+++++++++++++++++++++++++++++++++++’);
writeln(‘+ +’);
readkey;
end.
/
17. Написати програму, яка для заданого дійсного a порахує і надрукує ромб наступного
виду:
a
5a 5a
4a 10a 4a
5a 5a
a
a
Program lvl2;
uses crt;
var
a:real;
begin
clrscr;
writeln(‘IKNI’);
writeln(‘RN-16, Ivasyshyn Roman’);
writeln(‘Robota 2, variant 17, lvl 3’);
writeln(‘input a’)
readln(a);
writeln(a:21:3);
writeln(5*a:15:3,’ ‘,5*a:10:3);
writeln(4*a:5:3,’ ‘,10*a:5:3,’ ‘,4*a:10:3);
writeln(5*a:15:3,’ ‘,5*a:10:3);
writeln(a:21:3);
readkey;
end.
/
Третій рівень
17. Відомо, що в M пакетів вміщується N їжачків. Скільки пакетів потрібно, щоб принести
на пару K їжачків?
program lvl3;
uses crt;
var
n,m,k:integer;
x:real;
y:longint;
begin
writeln(‘IKNI’);
writeln(‘RN-16, Ivasyshyn Roman’);
writeln(‘Robota 2, variant 17, lvl 3’);
writeln(‘input kilkist paketiv’)
readln(m);
writeln(‘input kilkist isgakiv’);
readln(n);
writeln(‘input sho potribno prynesty’);
readln(k);
x:=(m/n)*k;
if (x mod 1=0) then writeln(x)
else...
